Aminet 24/Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso/Aminet/text/edit/GED_Hexedit.lha/GED_Hexedit/hex/english/CloseHex.ged

Text File | 1998-01-02 | 833b | 2 lines

/* Optimized with RexxOpt 1.8 */
OPTIONS RESULTS;parse arg art;if (LEFT(ADDRESS(),6) ~="GOLDED") then;address 'GOLDED.1';'LOCK CURRENT RELEASE=4';if (RC ~=0) then;exit;OPTIONS FAILAT 6;SIGNAL ON SYNTAX;'QUERY NAME=Modify var="modify"';if modify=TRUE then;do;'BEEP';'REQUEST Body="File was changed. Do you want to discard changes?" Button="Yes|!No" Title="Attention"';if Result=0 then;do;'UNLOCK';exit;end;end;'QUERY NAME=ordinal var="nummer"';if art="aktuell" then 'QUIT';else;do;'QUERY Name=Windows Var="AnzFenster"';if AnzFenster>1 then;do;'BEEP';'REQUEST Body="You will loose changes in the windows!|Shall I really quit?" Button="Yes|!No" Title="Attention"';if Result=0 then;do;'QUIT';'UNLOCK';exit;end;end;'QUIT ALL FORCE';'UNLOCK';exit;end;'UNLOCK';exit;SYNTAX:;SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-(";'UNLOCK';exit